home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Transportation / InventorLabs - Transportation.iso / mac / Builders / media / netacess / url95.dir / 00001_Script_1 next >
Text File  |  1996-10-10  |  2KB  |  112 lines
  1.  
  2. on ShowTest
  3.   global TheWeb, SetupName, TheURL, TheUser,ThePassword
  4.   
  5.   set SetupName = "Setup.exe"
  6.   set TheURL = "http://www.hminet.com"
  7.   set TheUser = "Your User Name Here"
  8.   set ThePassword = "Your Password Here"
  9.   
  10.   openXlib "inetobj"
  11.   showXlib
  12.   inetobj(mDescribe)
  13.   InitWeb
  14.   -- put "put TheWeb(mCheckInstall)"
  15.   -- put "put TheWeb(mInstallAccess,SetupName)"
  16.   -- put "put TheWeb(mOpenURL,TheURL,TheUser,ThePassword)"
  17.   
  18. end
  19.  
  20. on InitWeb
  21.   global TheWeb,WebStatus
  22.   
  23.   openXlib "inetobj"
  24.   
  25.   if the machineType = 256 then
  26.     if objectP(TheWeb) then
  27.     else
  28.       set TheWeb = Inetobj(mNew) 
  29.       set WebStatus = TheWeb(mInit)
  30.       -- put WebStatus
  31.       
  32.       set the text of member "ErrorReport" to TheWeb(mGetWebError,WebStatus) 
  33.     end if
  34.   end if  
  35. end
  36.  
  37. On InstallWeb
  38.   global TheWeb,WebStatus
  39.   
  40.   if objectP(TheWeb) then
  41.     
  42.     if TheWeb(mCheckInstall) = -1 then
  43.       set WebStatus = TheWeb(mInstallAccess,"Setup.exe")
  44.       set the text of member "ErrorReport" to TheWeb(mGetWebError,WebStatus)
  45.       
  46.     end if
  47.     
  48.     --
  49.     -- Delay: wait for installation to complete
  50.     --
  51.     repeat while TheWeb(mCheckInstall) = 1
  52.     end repeat
  53.   end if
  54.   
  55. end
  56.  
  57. On OpenURL
  58.   global TheWeb,WebStatus,TheUser,ThePassword
  59.   
  60.   if objectP(TheWeb) then  
  61.     --
  62.     -- Check for current installation
  63.     --
  64.     if TheWeb(mCheckInstall) = -1 then
  65.       set the text of member "ErrorReport" to TheWeb(mGetWebError,2)
  66.       InstallWeb
  67.     end if
  68.     
  69.     --
  70.     -- Open a connection if appropriate
  71.     --
  72.     
  73.     if TheWeb(mCheckInstall) = 0 then
  74.       set WebStatus = TheWeb(mOpenURL,"http://www.hminet.com",TheUser,ThePassword)
  75.       if WebStatus <> 0 then
  76.         -- put TheWeb(mGetWebError,WebStatus)
  77.         TheWeb(mPostWebError,WebStatus)
  78.       end if
  79.     end if
  80.   else
  81.     set the text of member "ErrorReport" to "Bad Web object"
  82.   end if
  83.   
  84. end
  85.  
  86.  
  87. On CloseWeb
  88.   global TheWeb
  89.   
  90.   if the machineType = 256 then
  91.     if objectP(TheWeb) then
  92.       TheWeb(mDispose)
  93.     end if
  94.   end if
  95.   
  96.   closeXlib "inetobj"
  97. end
  98.  
  99. On TestErrors
  100.   global TheWeb
  101.   
  102.   if objectP(TheWeb) then
  103.     repeat with errval = 1 to 7
  104.       set anerror = TheWeb(mGetWebError,errval)
  105.       -- put errval,".",anerror
  106.       set the text of member "ErrorReport" to anerror
  107.       TheWeb(mPostWebError,errval)
  108.     end repeat
  109.   end if
  110.   
  111. end
  112.